home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / keyboard.swg / 0068_Disable Ctrl-Alt-Del.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-01-27  |  3.9 KB  |  85 lines
  1. (*******************************************************************)
  2.  PROGRAM CtrlCAD;   { CTRLCAD.PAS  Disable Ctrl-Alt-Del             }
  3.                     { Oct.1992 Greg Vigneault                       }
  4.  
  5.  USES   Crt,        { import ClrScr, KeyPressed, ReadKey            }
  6.         Dos;        { import GetIntVec, SetIntVec                   }
  7.  
  8.  VAR    old09Vector : POINTER;  { to save/restore original ISR      }
  9.         ch          : CHAR;
  10.         presses     : WORD;
  11.  
  12.  { the following mask & count Ctrl-Alt-Del|Ins|Enter keystrokes     }
  13.  {$L CTRLCAD.OBJ}   { assembly, near calls                          }
  14.  PROCEDURE InitTrapCAD( oldVector : POINTER );  EXTERNAL;
  15.  PROCEDURE TrapCAD; Interrupt;                  EXTERNAL;
  16.  FUNCTION  TriedCAD : WORD;                     EXTERNAL;
  17.  PROCEDURE ForgetCAD;                           EXTERNAL;
  18.  PROCEDURE WarmBoot;                            EXTERNAL;
  19.  PROCEDURE ColdBoot;                            EXTERNAL;
  20.  
  21.  BEGIN
  22.     (* NEVER allow Ctrl-Break while TrapCAD is active ...          *)
  23.     CheckBreak := FALSE;            { disable Ctrl-Break            }
  24.  
  25.     GetIntVec( 9, old09Vector );    { get current keyboard ISR      }
  26.     InitTrapCAD( old09Vector );     { pass vector to TrapCAD        }
  27.     SetIntVec( 9, @TrapCAD );       { enable TrapCAD ISR            }
  28.  
  29.     ForgetCAD;                      { reset TriedCAD count to 0     }
  30.     presses := 99;                  { any unlikely value            }
  31.  
  32.     { we'll just count the Ctrl-Alt-Del taps ...                    }
  33.     REPEAT
  34.         IF (presses <> TriedCAD)    { update only when changed      }
  35.         THEN BEGIN
  36.              presses := TriedCAD;
  37.              ClrScr;
  38.              Write('Ctrl-Alt-Del pressed ',presses,' times ');
  39.              Write('[Press ESC to exit]');
  40.         END;
  41.         IF KeyPressed THEN ch := ReadKey;
  42.     UNTIL (ch = #27);
  43.  
  44.     WriteLn; WriteLn;
  45.     REPEAT
  46.         Write('Would you like to warm boot the system? [Y/N] ',#7);
  47.         ReadLn( ch );   ch := UpCase( ch );
  48.     UNTIL ch IN ['Y','N'];
  49.     IF ch = 'Y' THEN WarmBoot;      { emulate Ctrl-Alt-Del          }
  50.  
  51.     SetIntVec( 9, old09Vector );    { unload TrapCAD                }
  52.     WriteLn; WriteLn('Ctrl-Alt-Del is now re-enabled!');
  53.     CheckBreak := TRUE;             { restore Ctrl-Break            }
  54. END.
  55. (*******************************************************************)
  56.  
  57.  Put all of this remaining message into a text file named CTRLCAD.SCR,
  58.  then type "DEBUG < CTRLCAD.SCR" (no quotes) to create CTRLCAD.ARC,
  59.  and extract CTRLCAD.OBJ using PKUNPAK or PAK ...
  60. ======================= Start of DEBUG script =========================
  61.  nCTRLCAD.ARC
  62.  e100 FC BB 03 00 BF A5 01 BE 85 01 8A EF AD 86 CC AA FE C0 E2 FB 4B 75
  63.  e116 F5 B9 FF FD BA 00 02 52 B4 3F CD 21 5F 72 66 8B F7 50 8B C8 B0 2A
  64.  e12C F2 AE 75 5B B0 0D F2 AE 87 F7 BB 00 01 B2 04 AC 3C 2A 72 FB 74 4C
  65.  e142 57 BF A3 01 B9 40 00 8A E1 F2 AE 5F 75 3B FE C1 2A E1 88 27 43 FE
  66.  e158 CA 75 E0 56 BE 00 01 AD 86 C4 8B D0 AD 86 C4 5E B1 02 D2 E0 D3 E0
  67.  e16E D2 E2 D3 EA D0 E1 D1 EA D1 D8 E2 FA 86 C2 AA 8A C4 AA 8A C2 AA EB
  68.  e184 B1 30 0A 41 1A 61 1A BF 00 02 58 F7 D8 99 33 DB 8B CA 8B D0 B8 01
  69.  e19A 42 57 CD 21 59 80 ED 02 CC 2B 2D
  70.  g=100
  71.  w200
  72.  q GXD v3.3a: XX34-to-DEBUG script code by Greg Vigneault
  73.  
  74. *XX3401-000345-041092--72--85-16010-E---CTRLCAD.ARC--1-OF--1
  75. 4UV1J37AEo329Yx0GU-SCU2++2EN28fLRqA-+++AU-c+K104XVkqMw8EQF3YGVAyZUs++2-U
  76. m-AWFMVUYcXY2k+-+U9IUEH+mQE+-uV60E7ZG-+WDmMWI7YYcogWSKFON272m7AbJ-H7j-72
  77. GVCTE+hBH41YWNEXFOXQx1BlEF6bGOWcN5Zn6c-nW+VA3-IU4eVF++7ALAHBle6X+ZmU-S1q
  78. 0+4t2qQ+kkh+aBUVPy1YYNDa1-cu649Ym021l-2LIplM8SmaH7UuPCWk+12YX-i3MHXhUy7-
  79. fmBgc0sE6A4+-sAu1gW-sH431UESIiWotY+5kEQgbJnwQn3Fi647g20M+z4vonA+Y+ms01Jl
  80. a3uykrPFY9-ik8szTok1At56Utmvkvo0yDTD4eQQ+6UVG-hUHbk6xCj2ho1zHbkmxBZ5H-fx
  81. lPR5UQE6Ua+ax4o0+0O801+F5Fc+
  82. ***** END OF XX-BLOCK *****
  83.  
  84. ======================== End of DEBUG script ==========================
  85.